Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/MacTools/HyperCard BBS/UserList/background_2635.txt

Text File | 1988-05-09 | 9.9 KB | 446 lines

-- background: 2635 from stack: in
-- bmap block id: 3631
-- flags: 0000
-- background id: 0
-- name:


-- part 1 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=73 right=90 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: name


-- part 3 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=89 right=106 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: password


-- part 4 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=105 right=122 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: clearance


-- part 5 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=121 right=138 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: options


-- part 6 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=140 right=157 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: machine


-- part 7 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=156 right=173 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: city


-- part 8 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=172 right=189 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: first logon


-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=188 right=205 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: times on


-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=388 top=127 right=149 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Weed Users
----- HyperTalk script -----
on mouseUp
  ask "Delete users who's last login was before:"
  if it is empty then exit mouseUp
  convert it to secs
  put it into deleteSince
  put the number of cards into cCount
  repeat the number of cards
    put "Processing card " & the number of this card & " of " & cCount
    get field "last logon"
    convert it to secs
    if it > deleteSince then go to next card
    else if the number of cards > 1 then doMenu "Delete Card"
  end repeat
  doMenu "Compact Stack"
  showCount
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=388 top=102 right=124 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete User
----- HyperTalk script -----
on mouseUp
  doMenu Delete Card
  showCount
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=388 top=177 right=199 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find User
----- HyperTalk script -----
on mouseUp
  global lastFind
  ask "Find who?" with lastFind
  if it is not empty then
    set lockScreen to true
    put the ID of this card into initialID
    go to next card
    find word it in field "name"
    if it is not "not found" then
      put the ID of this card into firstID
      repeat while field "name" is not it
        go to next card
        find word it in field "name"
        if the ID of this card is firstID then
          go to initialID
          beep
          exit repeat
        end if
      end repeat
    end if
    put it into lastFind
    set lockScreen to false
  end if
end mouseUp




-- part 13 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=207 right=224 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: last logon


-- part 14 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=113 top=223 right=240 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: minutes on


-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=388 top=307 right=329 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Times on
----- HyperTalk script -----
on mouseUp
  sort descending numeric by field "times on"
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=388 top=282 right=304 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last logon
----- HyperTalk script -----
on mouseUp
  sort descending dateTime by field "last logon"
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=388 top=257 right=279 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name
----- HyperTalk script -----
on mouseUp
  sort by field "name"
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=386 top=206 right=235 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp


-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=415 top=206 right=235 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp


-- part 21 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=25 top=258 right=330 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: comments


-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=442 top=206 right=235 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=388 top=152 right=174 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import Users
----- HyperTalk script -----
on mouseUp
  answer "Import records from another user list file?" with "OK" or "Cancel"
  if it is not "OK" then exit mouseUp
  get the long name of this stack
  put it into destStack
  set lockScreen to true
  set lockMessages to true
  go to "the user list to import"
  put the long name of this stack into sourceStack
  if sourceStack is it then exit mouseUp
  put the number of cards into sourceSize
  repeat with i = 1 to sourceSize
    put "Processing record " & i & " of " & sourceSize
    go to card i of sourceStack
    put field "name" into theName
    put field "password" into thePassword
    put field "clearance" into theClearance
    put field "options" into theOptions
    put field "machine" into theMachine
    put field "city" into theCity
    put field "first logon" into theFirstOn
    put field "times on" into theTimesOn
    put field "last logon" into theLastOn
    put field "minutes on" into theMinutesOn
    put field "comments" into theComments
    go to last card of destStack
    doMenu "New Card"
    set lockScreen to false
    put theName into field "name"
    put thePassword into field "password"
    put theClearance into field "clearance"
    put theOptions into field "options"
    put theMachine into field "machine"
    put theCity into field "city"
    put theFirstOn into field "first logon"
    put theTimesOn into field "times on"
    put theLastOn into field "last logon"
    put theMinutesOn into field "minutes on"
    put theComments into field "comments"
    set lockScreen to true
  end repeat
  showCount
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=388 top=77 right=99 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add User
----- HyperTalk script -----
on mouseUp
  doMenu New Card
end mouseUp